with Websites_Configuration; use Websites_Configuration;
with Websites;
with Websites_Prototypes;

--
-- Tests for Websites Package
--

package Test_Websites is

   --
   -- tests suite
   --
   --    run all tests
   --

   procedure Tests_Suite;


private

   --
   -- tests
   --


   --
   -- test getter, setter and related methods
   --

   procedure Test_Contents_Encapsulation;

   --
   -- test calculation bound string space usage as percentage
   --

   procedure Test_Percentage_Space_Used;


   --
   -- types, constants shared by tests
   --

   --
   -- very large instance defined at package level
   --

   package Websites_Generic_Pkg is new Websites(

        Content_Size_Max => HEAP_LIMIT,

        URL_Length_Max => DOMAIN_MAXIMUM_LENGTH + QUERYSTRING_MAXIMUM_LENGTH );

   package Websites_Prototypes_Pkg is new Websites_Prototypes(

         Websites_Generic_Pkg );

   Website_Instance : Websites_Prototypes_Pkg.Website_Object_Interface;


end Test_Websites;